(read_escape): In a string, \s is always space.

diff --git a/src/lread.c b/src/lread.c
index 1f1ddddde4f9913fd46dc8beb5f0fc15a420c248..088f729075d32ad40a2fa6a65d2c6dd82abd740c 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -1894,7 +1894,7 @@ read_escape (readcharfun, stringp, byterep)
 
     case 's':
       c = READCHAR;
-      if (c != '-')
+      if (stringp || c != '-')
        {
          UNREAD (c);
          return ' ';